home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / oct90.arc / TIP586.LSP < prev    next >
Encoding:
Text File  |  1990-11-01  |  1.0 KB  |  36 lines
  1. ;TIP586.LSP   Visual Layer Selection   (c)1990 G. Ramesh 
  2. (defun c:layerset (/ LLIST L I CLAY LEN K)
  3.   (setvar "CMDECHO" 0)
  4.   (setq LLIST nil
  5.         L (tblnext "LAYER" T)
  6.         I 0
  7.   )
  8.   (while L
  9.     (setq LLIST (append LLIST (list (cdr (assoc 2 L))))
  10.               L (tblnext "LAYER")
  11.     )
  12.   )
  13.   (setq CLAY (getvar "CLAYER")
  14.         LEN (length LLIST)
  15.         LLIST (append (member CLAY LLIST)(reverse (cdr (member
  16.                CLAY (reverse LLIST)))) )
  17.   )
  18.   (prompt "\n\t Press space bar to scan layers on status line")
  19.   (prompt "\n\t\t Press RETURN to set that layer...")
  20.   (grtext -1 (strcat "Layer " (car LLIST) "        "))
  21.   (setq K (cadr (grread)))
  22.   (while (or (/= K 13)(= K 8)(= K 32))
  23.     (cond ((= K 32)(setq I (1+ I)))
  24.           ((= K 8)(setq I (1- I)))
  25.     )
  26.     (cond ((minusp I)(setq I (1- LEN)))
  27.           ((= I LEN)(SETQ I 0))
  28.     )
  29.     (grtext -1 (strcat "Layer " (nth I LLIST) "        "))
  30.     (setq K (cadr (grread)))
  31.   )
  32.   (command "layer" "s" (nth I LLIST) "")
  33.   (prompt "Done.")(prin1)
  34. )
  35.  
  36.